﻿Public Class Frm10Proceso
    Public b As Integer
    Dim bol_Cargar As Boolean = False
    Dim bol_peso As Boolean = False



    Public Function cargarbodega() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxBodegaOrigen
                'No se permite modificar
                .DataSource = accion.mostrar
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion"
                'Clave principal
                .ValueMember = "ID_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With

            Return True
        End If
    End Function



    Public Function cargarbodegaFinal() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxBodegaDestino
                'No se permite modificar
                .DataSource = accion.mostrar
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion"
                'Clave principal
                .ValueMember = "ID_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With

            Return True
        End If
    End Function



    Public Function cargarProductoTerminado() As Boolean
        Dim dato As New Items
        dato.pTipo = 2
        'Objeto Roles
        Dim accion As New ItemsDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar_por_tipo(dato)
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxProductoTerminado
                'No se permite modificar
                .DataSource = accion.mostrar_por_tipo(dato)
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Ncom"
                'Clave principal
                .ValueMember = "ID_Producto"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With

            Return True
        End If
    End Function
    Public Sub cargarInventario(ByVal fila As Integer)
        Try
            Dim dato As New Movimientos
            Dim accion As New MovimientosDAO
            dato.pBodega = b

            'Llenar tabla
            Dim tabla As New DataTable
            If dato.pBodega = Nothing Then
            Else
                tabla = accion.inventario_mostrar_por_bodega(dato)

                FormatosGrid.formatoGrid_Mostrar_Inventario(DGV1, tabla)
            End If


        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub


    Private Sub Frm10Proceso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtFecha.Text = DateTime.Now.ToString("dd/MM/yyyy")
        cargarbodega()
        cargarProductoTerminado()
        cargarbodegaFinal()
        'Label5.Text = b


    End Sub

    Private Sub dgv1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGV1.CurrentCellChanged
        Try
            If Not DGV1.CurrentCell Is Nothing Then
                With DGV1
                    lblIDProducto.Text = .Rows(.CurrentCell.RowIndex).Cells(0).Value
                    txtProdcuto.Text = .Rows(.CurrentCell.RowIndex).Cells(1).Value
                    txtCantidad.Text = .Rows(.CurrentCell.RowIndex).Cells(2).Value
                End With
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
              MessageBoxIcon.Warning)
        End Try
    End Sub

    Private Sub cbxBodegaOrigen_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxBodegaOrigen.SelectedValueChanged



        If bol_Cargar = True Then


            Dim accion As New MovimientosDAO
            Dim dato As New Movimientos
            dato.pBodega = Me.cbxBodegaOrigen.SelectedValue
            'Llenar tabla
            Dim tabla As New DataTable
            tabla = accion.inventario_mostrar_por_bodega(dato)
            'Comprobar si hay datos
            If Not tabla Is Nothing Then
                'Cargar datos en el grid
                'dgv1.DataSource = tabla
                FormatosGrid.formatoGrid_Mostrar_Inventario(DGV1, tabla)

            Else
                DGV1.DataSource = ""
            End If



        End If

    End Sub

    Public Sub cargarPeso()
        Try
            Dim dato As New Items
            dato.pIdProd = cbxProductoTerminado.SelectedValue
            Dim accion As New ItemsDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrar_peso(dato)
            lblPeso.Text = registroUltimo3
            lblIdprodTerm.Text = registro_idProducto

            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub
    Public Sub cargarRegistros1()
        Try
            Dim accion As New MovimientosDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrarUltimoRegistro1
            lblIDMovimiento1.Text = registroUltimo1

            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub

    Public Sub cargarRegistros2()
        Try
            Dim accion As New MovimientosDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrarUltimoRegistro2
            lblIDMovimiento2.Text = registroUltimo2
            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub




    Private Sub Frm10Proceso_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        bol_Cargar = True
        bol_peso = True
    End Sub


    Private Sub cbxProductoTerminado_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxProductoTerminado.SelectedValueChanged
        If bol_Cargar = True Then
            Dim a, b, c As Integer
            cargarPeso()
            a = txtCantidad.Text
            b = registroUltimo3
            c = a / b
            txtInvNuevo.Text = c

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Dim retirar, ingresar As New Movimientos
        Dim accionretirar, accioningresar As New MovimientosDAO
        Dim invenarioretirar, inventarioingresar As New Inventario
        Dim accioninventarioretirar, accioninventarioingresar As New InventarioDAO


        retirar.pFehca = txtFecha.Text
        retirar.pDescripcion = txtDescrip.Text
        retirar.pID_T_Documento = 5
        retirar.pBodega = cbxBodegaOrigen.SelectedValue
        retirar.pSocio = 1
        accionretirar.agregar(retirar)
        cargarRegistros1()

        invenarioretirar.pIngresos = 0
        invenarioretirar.pSalidas = txtCantidad.Text
        invenarioretirar.pIDproducto = lblIDProducto.Text
        invenarioretirar.pIDmovimiento = lblIDMovimiento1.Text
        accioninventarioretirar.agregar(invenarioretirar)

        ''***********************************************

        ingresar.pFehca = txtFecha.Text
        ingresar.pDescripcion = txtDescrip.Text
        ingresar.pID_T_Documento = 5
        ingresar.pBodega = cbxBodegaDestino.SelectedValue
        ingresar.pSocio = 1
        accioningresar.agregar(ingresar)
        cargarRegistros2()

        inventarioingresar.pIngresos = txtInvNuevo.Text
        inventarioingresar.pSalidas = 0
        inventarioingresar.pIDproducto = lblIdprodTerm.Text
        inventarioingresar.pIDmovimiento = lblIDMovimiento2.Text
        accioninventarioingresar.agregar(inventarioingresar)

        MessageBox.Show("Registro Almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)


        Me.Close()


    End Sub
End Class